#define getSizeOf(x) write(0,'(A30,A,I4)') #x,":", SIZEOF(x)

Program main
 ! Déclaration des variables
 REAL, DIMENSION(:,:), ALLOCATABLE :: myArray
 INTEGER, PARAMETER :: seed = 86456
 INTEGER :: sizeX=5000, sizeY=1000

 write (*,*) 'X, Y ?'
82      format (I5, I5)
 read(*,82), sizeX, sizeY
 ALLOCATE(myArray(sizeX,sizeY))

 DO i=0,sizeX
        DO j=0,sizeY
#ifdef DEBUG
                write(*,*), 'X=',i,'Y=',j
#endif
                call srand(seed)
                myArray(i,j)=rand()
        ENDDO
 ENDDO
 !write(*,10) myArray
 print *, ((sizeof(myArray)/1024)/1024)
 print *, (sizeof(myArray))

End Program
